#!/usr/bin/perl
use strict;
use warnings;
# Testkäse ;)
my @siz1 = Test::Img::CheckWH('<img src="abcdef.jpg">');
my @siz2 = Test::Img::CheckWH('<img src="abcdef.jpg" h=99 w=88>');
1;
package Test::Img;
use warnings;
sub CheckWH {
	my $str = shift;
	my ($h, $w) = $str =~ /h=(.+)\s+w=(.+)/;
	$h = '' if $h eq '*';
	$w = '' if $w eq '*';
	return ($h,$w);
}
1;