classic21-currplay.pl

#! /usr/bin/perl -w

use strict;
use warnings;
use feature 'say';
use LWP::Simple;

my @page = get('http://www.rtbf.be/classic21/conducteur');
my ( $song, $singer );

for (@page) {
    $song   = $1 if /<h4>Titre: <strong>([^<]*)<\/strong><\/h4>/i;
    $singer = $1 if /<p>Artiste: <strong>([^<]*)<\/strong><\/p>/i;
}


say "Classic 21 (currently playing) :\n$singer –– $song";