perl -e '$s="get_rid_of_some_string";print "remaining string: $s\n" if $s=~s/^.*rid_//;'