#!/usr/bin/perl
#
my $data = "Exlief 4    page : 1 /10";

if ($data =~ /pag\w+\s*:\s*(\d+).*(\d*\d+)/) {
                	print "Pages : $1 / $2\n";
        	}

my $data = "Exlief 4    page : 1 / 5";

if ($data =~ /pag\w+\s*:\s*(\d+).*(\d*\d+)/) {
                	print "Pages : $1 / $2\n";
        	}