#!/usr/bin/perl -w

use strict;
use diagnostics;

my $line = 'some_for($var)'; #don't match
$line = '	for($var)'; #match
$line = 'for($var)'; #match

	if ($line =~ /\s+(for\()/gi) {
		print 'match';
	}