Help for this page

Select Code to Download


  1. or download this
    $s = 'fred_bill_john_jack_joe_mary_eugene';;

$s =~ /(^[^_]+_[^_]+_[^_]+_)/ and print "'$1'";;

'fred_bill_john_'
  2. or download this
    $s =~ /(^(?:[^_]+_){3})/ and print "'$1'";;

'fred_bill_john_'