Select Code to Download

#!/usr/bin/perl -w

...
    push @pos, pos();
}
print @pos;

------- ------------- -------- ---------- -------------