c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le "my $line = '2 3 3 3 5 7 8 12 32 44 55 12 3 23 43 33 1 4 25 43 42 1'; dd $line; ;; my @raw_numbers = $line =~ m{ \d+ }xmsg; ;; my @sorted_numbers = sort { $a <=> $b } @raw_numbers; dd \@sorted_numbers; " "2 3 3 3 5 7 8 12 32 44 55 12 3 23 43 33 1 4 25 43 42 1" [1, 1, 2, 3, 3, 3, 3, 4, 5, 7, 8, 12, 12, 23, 25, 32, 33, 42, 43, 43, 44, 55]