$x = "grep (1) - print lines matching a pattern"; $x =~ s/.*-//; print $x;