Help for this page
my $string = "1\r\n 2 \n"; while ($string = /(.)/g) { print "Encountered character: $1\n"; }
Encountered character: 1 Encountered character: \r ... Encountered character: 2 Encountered character: \s Encountered character: \n