perl -le '@arr=qw(5 52 523 5234 52341);foreach $a (@arr) { $a=join "_",split //,$a,(length($a)>3)?3:length($a) if length($a) < 5 and length($a)>1;print $a}
'