if ($r =~ m#
\s*?(.*?)\s*?
#) { p("Address: $1"); }