while (<>) {
    (/foo(.*)/) && ($foo = $1);
}