#!/your/perl/here

use strict;
use warnings;

if (( 1) # missing closing paren
{
	my $x;
	($x) = 'abc' =~ /(b)/;
	$x++;
}