#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $orig = 'my_stuff[1]=400';
my $want = 'my_stuff[1]=';


print "They Match\n" if  $orig =~ /$want/;