Q :q //    Q :qq //    Q :regex // Q :subst ///    Q :trans ///

##</code><code>##

q//   qq//   qr//    s///    tr///

##</code><code>##

#! perl -slw
use strict;
use LWP::Simple;

our $area ||= 1040;

my $url = &quot;http://www.bbc.co.uk/weather/5day.shtml?id=$area&quot;;

our $f;
my $html = $f
    ? do{ local( $/, @ARGV ) = ( undef, 'weather.failed' ); &lt;&gt; }
    : get $url or die &quot;Failed to get html: $!, $?, $^E&quot;
;

my $reTag = qr[&lt; [^&gt;]+ &gt; \s*? ]x;
my( $place, $state, $temp, $wDir, $wSpeed, $humid, $press, $updown, $vis,
    $lat, $long, $date, $time, $TZ, $other #
) = $html =~ m[
    5\sDay\sForecast\sin\sCelsius\sfor\s+ ( [^&lt;]+ ) .+?
    Current\s+Nearest\s+Observations $reTag : $reTag+
    ( [^&lt;]+ ) $reTag \s+ ( \d+ ) .+?
    ( [NSEWA/]+ ) \s+ \( ( \d+ ) .+?
    Relative\s+Humidity .+? : \s+ ( \d+ ) .+?
    Pressure .+? : \s+ ( \d+ ), \s+ ( \S+ ) , .+?
    Visibility .+? : \s+ ( [^&lt;]+ )
    .+?
    Latitude $reTag : \s+ ( [\d.-]+ ) , .+?
    Longitude $reTag : \s+ ( [\d.-]+ ) \. .+?
    Observed $reTag : \s+ ( .+? ) \s+ at \s+
    $reTag ( \S+ ) \s+ $reTag
    \( $reTag ( [A-Z]+ )
#    ( .{100} )
]smx or warn 'Regex failed!' and getstore $url, 'weather.failed';

print &lt;&lt;EOP;
For: $place
Sky: $state
Temp: $temp
Wind Direction: $wDir Speed: $wSpeed
Humidity: $humid%
Pressure: $press $updown
Visibility: $vis
Latitude: $lat
Longitude: $long
Observed: $date $time $TZ
EOP