1 line
64 B
Perl
1 line
64 B
Perl
print $-[0], "\n" while $str1 =~ /\Q$str2\E/g; # using a regex
|
print $-[0], "\n" while $str1 =~ /\Q$str2\E/g; # using a regex
|