IMHO schönere lösung: print +(split /-/, $x)[1];