# Beispiel 1.
my ($x) = /(regex)/;
# (Ohne Listenkontext würde der Match etwas ganz anderes zurückgeben)

# Beispiel 2.
# in meiner perlscriptsammlung gefunden, zum parsen der ausgabe von mplayer -identify:
my ($width)  = map { /^ID_VIDEO_WIDTH=(\d+)$/  } @identify;