#!/usr/bin/perl

$lines = <STDIN>
chomp $lines if($lines =~ m/^$/);
$lines .= $_ while(<STDIN>);
chomp $lines;
print $lines;


map <F2> :enew<CR>p:%!~/.vim/misc/chomp.pl <Bar> pbcopy<CR>:bw!<CR>