Ha az masodikat akarod for ciklusra atirva:
#!/usr/bin/perl -w
use strict;
print "Please enter a string: ";
chomp(my $string = <STDIN>);
print "Please enter a substring: ";
chomp(my $sub = <STDIN>);
my @places;
for (my $pos = -1; -1 != ($pos = index ($string,$sub,$pos +1)); push (@places, $pos)) {};
print "Locations of '$sub' in '$string' were: @places\n";
De ha elmondod milyen kimenetet kene kapni egy pelda utan az elsore akkor ossze rakhatunk mast is.
Amit nem lehet megirni assemblyben, azt nem lehet megirni.