{ local $/ = "^@"; chomp $str; } [download]
In reply to Re: pattern matching by cdarke in thread pattern matching by himanshu.padmanabhi