>c:\progs\perl560\bin\perl -e"for my $s ( qw( a b c ) ) { $s =~ s/$/\n/ && print $s }"
Modification of a read-only value attempted at -e line 1.

>c:\progs\perl561\bin\perl -e"for my $s ( qw( a b c ) ) { $s =~ s/$/\n/ && print $s }"
Modification of a read-only value attempted at -e line 1.

>c:\progs\perl580\bin\perl -e"for my $s ( qw( a b c ) ) { $s =~ s/$/\n/ && print $s }"
Modification of a read-only value attempted at -e line 1.

>c:\progs\perl588\bin\perl -e"for my $s ( qw( a b c ) ) { $s =~ s/$/\n/ && print $s }"
Modification of a read-only value attempted at -e line 1.