Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...
        $string =~ s/\s+$//m;
        print "'$string'\n";
}

'Test'
'Test 2'
'A'
...
line
string'
''