my $s = 'f';
print $s(), $/;