($front, $back) = split /:/, $compare; if ( $compare =~ /:$back$/ ) { # do something }