#!/usr/bin/perl -wT
use CGI':standard';
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
print header();
print start_html(-title => "Regular Expressions");
my $string;
$string = "Get your kicks on Route 66!";
if($string =~ m/(\d)/) {
print "The first digit in the sentence is $1.<br>";}
if($string =~ m/(\d+)/) {
print "The first number in the sentence is $1.<br>";}
if($string =~ m/kicks(.*)6/) {
print "$1<br>";}
if($string =~ m/kicks(.*?)6/) {
print "$1<br>";}
print end_html();
