#!/usr/bin/perl -w
use strict ;
while (<>) {
	if ($_ = /\\*\**/) {
		print "Your string has at least one a and any number of bs.\n" ;
		last ;
	}
	else {
		print "Your string does not match.\n" ;
		last ;
	}
}