use strict;
use warnings;
use Test::More tests => 1;

my $sample_string = '240 x 240 x 2/3600';

my $number = qr/1?\d{1,4}/;
my $valid = $sample_string =~ m{$number x $number x $number/$number};
ok($valid, 'Sample string');