if (/bar/){
$foo = substr($_, 5)
} elsif (/bar/) {
$bar = substr($_, 8)
}