Help for this page

Select Code to Download

Select or download this

print pos($str)-1 while $str =~ /\n/g;
print $-[0] while $str =~ /\n/g;