my $string = "oiio :crlist 12344";my ($substring) = $string=~ /(\:.*)\s*$/;print($substring);
Standard input is empty
:crlist 12344
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!