Help for this page
$ perl -le '$_ = "abcX123"; print $1 if /([^X]*)$/;' 123 $ perl -le '$_ = "abc123"; print $1 if /([^X]*)$/;' abc123