perl -le '$string="abcX123"; $string =~ /X([^\s]+)/; print $1;'

123