Perl code - 8 lines

Link:

Perl, pasted on Apr 19:

#!/usr/bin/perl

$content = <<'CONTENT';
paste your code in here 	
CONTENT

$content =~ s/\s+$//g;
print $content;

Output:

1	paste your code in here