#!/usr/bin/perl -w

while ($lines = <STDIN>){
    @input = $lines =~ /\d+/g;
    @largest_number = sort {$a <=> $b} @$input;
    print "$lines\n";
}