#! /usr/local/bin/perl

my $source = "
name: Schwank E. Schwagg
address: 123 Dirtweed Dr.
user: 1
name: Bizzi Buddi
address: 321 Grapevine Way
user: 2
name: Fernal Brimstone
address: 666 Lucifer Ln
user: 3
";

$source =~ m/.*?(name.*?user: 2)/s;
print "$1\n";