my $dollar1;
case /^\s*(\S+)$ (?{ $dollar1 = $1 })/ {
   ...