perl -e '$string="abcX123"; $string =~ /.*X(\S+)/; print $1;'